home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / vbasic / vbpxen / checkout.frm (.txt) next >
Visual Basic Form  |  1991-10-08  |  4KB  |  89 lines
  1. Checkout
  2.     Check Out
  3. Form1
  4. ButtonOK
  5. ButtonCancel
  6. &Cancel
  7. Label1
  8. Customer number:
  9. custnumber
  10. custname
  11. Label2
  12. Tape number:
  13. tapenumber
  14.     tapetitle
  15. tapenumber
  16.     tapetitle
  17. tapenumber
  18.     tapetitle
  19. tapenumber
  20.     tapetitle
  21. tapenumber
  22.     tapetitle
  23. custnumber_Change
  24. custnumber_LostFocus
  25. GetCustomerRec
  26. DBKEYED
  27. custnumber
  28. custname
  29. custrec
  30. customer,
  31. tapenumber_Change
  32. tapenumber_LostFocus
  33. GetItemRec%
  34. tapenumbero
  35.     tapetitleD
  36. itemrece
  37. itemdesc
  38. caption!
  39. custname_Click
  40. lastname
  41.     firstname
  42. thename
  43. TheFullName
  44. ButtonCancel_Click
  45. checkout7
  46. ButtonOK_Click
  47. itemnumber
  48. there
  49.     tapes_out
  50. UpdateCustomerRecT
  51.     iNumTapes
  52. Command1_Click
  53. ButtonExit_Click
  54. DB_OKY
  55. apetitle
  56. screen
  57. MousePointer
  58. POINTER_HOURGLASS
  59. POINTER_DEFAULT
  60. Form_Click
  61. @    Form_Load
  62. custnum
  63. UpdateItemRec
  64. inout_code
  65. itemfee
  66. inout)
  67. MB_ICONEXLAMATION
  68. MB_ICONEXCLAMATION
  69. custnumber_LostFocus
  70.   need to trim trailing blanks from the last name 
  71. tapenumber_LostFocus
  72. ButtonCancel_Click
  73. ButtonOK_Click
  74.   Make the customer rec is there
  75.   But do not update it yet
  76.  rc = GetCustomerRec(DBKEYED)E
  77.   Get each tape and update
  78. Tape "
  79.  deleted! 
  80. Tape is already out, number: "
  81. Already out"
  82.   Get the customer again and update as quickly
  83.   as possible.  Should lock it, but requires more code
  84.   Clear the screen for the next checkout
  85.   ***  tapetitle(i%).caption = " "
  86. ButtonExit_Click
  87. Form_Load
  88.  ??  whats wrong with this -  custnumber.SetFocusF
  89.